home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / setpar / setparnt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  1.9 KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2805
  5.    ClientLeft      =   405
  6.    ClientTop       =   885
  7.    ClientWidth     =   4035
  8.    Height          =   3210
  9.    Left            =   345
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2805
  12.    ScaleWidth      =   4035
  13.    Top             =   540
  14.    Width           =   4155
  15.    Begin Frame Frame1 
  16.       Caption         =   "Frame1"
  17.       Height          =   1935
  18.       Left            =   60
  19.       TabIndex        =   0
  20.       Top             =   120
  21.       Width           =   2415
  22.       Begin CommandButton BtnOne 
  23.          Caption         =   "Click Me!"
  24.          Height          =   375
  25.          Left            =   360
  26.          TabIndex        =   1
  27.          Top             =   1500
  28.          Width           =   1635
  29.       End
  30.       Begin Shape Shape1 
  31.          BackColor       =   &H0000FFFF&
  32.          BackStyle       =   1  'Opaque
  33.          Height          =   975
  34.          Left            =   360
  35.          Shape           =   1  'Square
  36.          Top             =   420
  37.          Width           =   975
  38.       End
  39.    End
  40. Option Explicit
  41. Sub BtnOne_Click ()
  42. Dim x As Integer
  43. '  Where is the frame when button pressed?
  44. If FrameLoc = InForm2 Then
  45.  ' Move it to Form1
  46.    x = SetParent(Ctrl_hWnd, Form1.hWnd)
  47.    FrameLoc = InForm1
  48.  ' Adjust its position, just for effect.
  49.    Frame1.Top = 50: Frame1.Left = 100
  50.  ' Show how to act on diff. form from this one Sub
  51.    Form2.Label1 = "Frame's in Form1"
  52.  ' Move it to Form2
  53.    x = SetParent(Ctrl_hWnd, Form2.hWnd)
  54.    FrameLoc = InForm2
  55.  ' Restore its original position
  56.    Frame1.Top = 750: Frame1.Left = 1500
  57.  ' Modify a control that _stays_ on Form2 -- just for show.
  58.    Form2.Label1 = "Frame's down here now!"
  59. End If
  60. End Sub
  61. Sub Form_Load ()
  62.    Form2.Show
  63.    Ctrl_hWnd = Frame1.hWnd
  64.    FrameLoc = InForm1
  65. End Sub
  66.